% V20210224 - 13.6 Panel Customization

INCLUDE "GW.bas"

% Create a page.
p = GW_NEW_PAGE()

% Prepare title bar string.
Title$ = GW_ADD_BAR_TITLE$("Panel Customization")

% Add title to page.
GW_ADD_TITLEBAR(p,Title$)

% Prepare left panel.
GW_USE_THEME_CUSTO_ONCE("position=left")
lpanel = GW_ADD_PANEL(p, " <h1>Left panel</h1>")

% Prepare right panel.
GW_USE_THEME_CUSTO_ONCE("position=right")
rpanel = GW_ADD_PANEL(p, " <h1>Right panel</h1>")

% Add descriptive text.
GW_ADD_TEXT(p, "This is an example of the panel customization.")

% Add  2 inline buttons to activate the panels.
GW_USE_THEME_CUSTO_ONCE("inline")
GW_ADD_BUTTON(p, "Open left panel", GW_SHOW_PANEL$(lpanel))

GW_USE_THEME_CUSTO_ONCE("inline")
GW_ADD_BUTTON(p, "Open right panel", GW_SHOW_PANEL$(rpanel))

% Now show the page.
GW_RENDER(p)

DO
 % Wait for user action.
 r$ = GW_WAIT_ACTION$()

 % Place here any necessary code to process user actions.
 POPUP r$

% End when BACK key is pressed.
UNTIL r$ = "BACK"

END "End of Panel Customization example."